home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / internet / net commander 1.0 / ISP / SCRPTLST / MNEMATIC.CMD < prev    next >
Encoding:
Text File  |  1996-03-01  |  2.6 KB  |  113 lines
  1. #    Login.cmd for Mnematics, Inc.
  2. #
  3. # Globenet Type 'R' Login Procedure
  4. #
  5. # This script is for Trumpet 2.05B. It may work with other versions.
  6. # It will establish a 'standard' PPP connection using the login
  7. # dialogue. This is the recommended configuration for new and/or
  8. # non-technical users.
  9. #
  10. # NOTE: Enter your password WITHOUT the leading "*" character.
  11. #
  12. # For TIA SLIP or PPP connections, contact your Globenet representative
  13. # or call 914-359-4546. An anonymous FTP server at
  14. #                        ftp://mne.net/pub/scripts/trumpet
  15. # contains scripts currently available.
  16. #
  17. # Note: To establish or change the access phone number,
  18. # pull down the Dialler menu, and choose Setup.cmd. You will be prompted
  19. # for Phone Number, Username, and Password.
  20. #
  21. # Last modified 12/20/95 by GWS
  22. #
  23. # Set up some strings for dialling up
  24. #
  25. if ![load $number]
  26.   if [query $number "Enter the access phone number"]
  27.     save $number
  28.   end
  29. end
  30. if ![load $username]
  31.   if [username "Enter your Subscriber ID"]
  32.     save $username
  33.   end
  34. end
  35. if ![load $password]
  36.   display "E
  37. nter password WITHOUT leading *"\n
  38.   if [password "Enter your login password"]
  39.     save $password
  40.   end
  41. end
  42. #
  43. # Note: &K3 selects CTS/RTS flow control on MOST Hayes compatible modems.
  44. # If this setup string causes an "ERROR" message from your modem, try
  45. # removing the "&K3" and replacing it with the appropriate string for
  46. # your modem
  47. #
  48. $modemsetup = "&C1&D2&K3"
  49. $prompt = "PPP"
  50. $userprompt = "ogin:"
  51. $passprompt = "assword:"
  52. ######### $slipcmd = "slip"
  53. $addrtarg = "Your address is"
  54. $pppcmd = "ppp"
  55.  
  56. %attempts = 10
  57. #
  58. # Initialize user's modem
  59. #
  60. output "atz"\13
  61. if ! [input 10 OK\n]
  62.   display "Modem is not responding"\n
  63.   abort
  64. end
  65. #
  66. # setup our modem commands
  67. #
  68. output "at"$modemsetup\13
  69. input 10 OK\n
  70. #
  71. # send phone number
  72. #
  73. %n = 0
  74. repeat
  75.   if %n = %attempts
  76.     display "Too many dial attempts"\n
  77.     abort
  78.   end
  79.   output "atdt"$number\13
  80.   %ok = [input 60 CONNECT]
  81.   %n = %n + 1
  82. until %ok
  83. input 10 \n
  84. #
  85. #  wait till it's safe to send because some modems hang up
  86. #  if you transmit during the connection phase
  87. #
  88. wait 3
  89. 0 dcd
  90. #
  91. # No sleep needed here; no wake-up call needed
  92. # Type 'P' Globenet gateway does not require autobaud.
  93. #
  94. #
  95. #  wait for the username prompt
  96. #
  97. input 30 $userprompt
  98. output $username\13
  99. #
  100. # and the password
  101. #
  102. input 30 $passprompt
  103. output $password\13
  104. #
  105. # PPP protocol begins immediately
  106. #
  107. output $pppcmd\13
  108. #
  109. display "PPP mode selected.  Will try to negotiate IP address."\n
  110. #
  111. # PPP mode begun, or else something is wrong.
  112. #
  113.